home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1986 October
/
Ahoy_Magazine_86-10_1986_Double_L.d64
/
Color Bars
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
342b
|
15 lines
0 poke53280,0:poke53281,6:poke646,1
1 print"[147]commodares problem #30-42
2 [153]" color bars":[153]
3 [143] solution by
4 [143] bing perry
5 [143]
10 clmem[178]241 : [139] [195](ds$)[178]0 [167] clmem[178]646
20 hld[178]0:rep[178]1:ctr[178]1
30 rnr[178][181]([187](0)[172]16)
40 [151] clmem,rnr:[129] i[178]1 [164] rep:[153] [199](65[170]rnr);:[130]
50 [139] rnr[178]hld [167] ctr[178]ctr[170]1:[137] 70
60 ctr[178]1
70 [139] ctr[177]rep [167] rep[178]ctr
80 hld[178]rnr : [137] 30